﻿Imports System
Imports System.ComponentModel
Imports System.ComponentModel.Design
Imports System.Drawing
Imports System.Workflow.ComponentModel
Imports System.Workflow.ComponentModel.Design

Namespace System.Workflow.Activities
    <SRCategory("Standard"), SRDescription("CompensatableSequenceActivityDescription"), ToolboxItem(GetType(ActivityToolboxItem)), Designer(GetType(SequenceDesigner), GetType(IDesigner)), ToolboxBitmap(GetType(CompensatableSequenceActivity), "Resources.Sequence.png")> _
    Public NotInheritable Class CompensatableSequenceActivity
        Inherits SequenceActivity
        Implements ICompensatableActivity
        ' Methods
        Public Sub New()
        End Sub

        Public Sub New(ByVal name As String)
            MyBase.New(name)
        End Sub

        Private Function System.Workflow.ComponentModel.ICompensatableActivity.Compensate(ByVal executionContext As ActivityExecutionContext) As ActivityExecutionStatus Implements ICompensatableActivity.Compensate
            Return ActivityExecutionStatus.Closed
        End Function

    End Class
End Namespace

